home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / fsmenu_m < prev    next >
Internet Message Format  |  1995-03-31  |  46KB

  1. From: "Michael Woodhams" <michael@astro.Princeton.EDU>
  2. Subject:  v04i005:  fsmenu_mw - Full screen menu system v1.0, Part01/01
  3. Newsgroups: comp.sources.hp48
  4. Followup-To: comp.sys.hp48
  5. Approved: spell@seq.uncwil.edu
  6.  
  7. Checksum: 1101970416 (verify with brik -cv)
  8. Submitted-by: "Michael Woodhams" <michael@astro.Princeton.EDU>
  9. Posting-number: Volume 4, Issue 5
  10. Archive-name: fsmenu_mw/part01
  11.  
  12.  
  13. BEGIN_DOC fsmenu.doc
  14.  
  15. [ You have to join the lines with the GROB's before downloading
  16. the rpl code.  You shouldn't have any problems with the
  17. uuencoded or asc'ed program. -chris]
  18.  
  19. In article <9202182025.AA17571@seq.uncwil.edu> FEE@waikato.ac.NZ (NAME DR. CONAN J. FEE, UNIVERSITY OF WAIKATO) writes:
  20. >
  21. >    About wants for the HP48....
  22. >
  23. >I'd pretty much agree with Joe Ervin's comments. A faster equation-writer
  24. >would be excellent. Also, perhaps a better way of navigating the
  25. >multi-page menus...UNITS comes to mind - it's a hassle having to move
  26. >up and down through the hierachy of menus to come up with a useful
  27. >unit combination. Some form of optional multi-line menu display perhaps???
  28. >
  29. >Conan Fee
  30. >University of Waikato
  31. >New Zealand
  32. >fee@waikato.ac.nz
  33.  
  34. My thoughts exactly. So I wrote a program to do it. It has been posted
  35. before, a long time ago, and comments like this made me think it was
  36. time for a re-post. Nor have I seen it in any goodies disks (hint hint.)
  37.  
  38. Capsule Review:
  39.  
  40. Running the program causes the top half of the screen disappears under a
  41. multi-line menu display, and the top rows of the keyboard are
  42. temporarily redefined. Keys can be programmed to return constants, run
  43. built in commands and user programs, behave like a UNIT key or access
  44. another multi-line menu. Once a key has been pressed, the multi-line
  45. display disappears. The contents of the menu can be edited as desired.
  46.  
  47. History:
  48.  
  49. I wrote version one of this program shortly after I got my HP-48SX,
  50. which would be early 1990. In version one, you had to edit the program
  51. to change the key assignments. I didn't give a name to the program,
  52. but it entered Wayne Scott's mail server as PHYCONST. After this was
  53. posted, somebody (whose name I have now lost, but to whom I am very
  54. grateful) improved it to version 2, which stored the key assignments
  55. in variables and included a program to edit them. Version 3 (by
  56. myself) added multiple menu capability, variable menu size, and much
  57. more error checking. It was probably originally posted a bit over a
  58. year ago.
  59.  
  60. Instructions:
  61.  
  62. I will start by giving instructions on how to use the program with the
  63. menus I have provided (which show a strong astrophysical slant.)
  64. Instructions on how to create you own menus come afterwards.
  65.  
  66. The file UGR contains a grob with 5 rows like the HP soft keys
  67. display, representing the top 5 rows of the keyboard. UVL is a
  68. multi-level list of programs and values telling the calculator what to
  69. do if a given key is pressed. The UMENU program displays the grob,
  70. waits for a keypress, and takes the appropriate action. To run the
  71. program, enter 'UGR' (level 2) and 'UVL' (level 1) on the stack and
  72. execute UMENU. (Note you enter the NAME of the UGR and UVL variables
  73. on the stack as an algebraic, not the actual contents of the
  74. variables.) The most convenient way to do this is to assign the
  75. program
  76.  
  77. \<< 'UGR' 'UVL' UMENU \>>
  78.  
  79. to a key. (I use the CST key, and keep my calculator always in USER
  80. mode.)
  81.  
  82. Once you have run the program, you will see the top 2/3 of the display
  83. get overwritten by the menu grob. If you press any key from the top
  84. two rows (except NXT) the display will disappear, and a constant (such
  85. as the luminosity of the sun) will be put on the stack. The 3rd to 5th
  86. rows of keys (except ENTER and +/-) are units keys and behave just
  87. like they would in the units menus, including shifted functions. (No
  88. more bouncing through units menus to enter W m^-2 Hz^-1 Ster^-1 ! (or
  89. even erg s^-1 cm^-2 Hz^-1 Ster^-1 for cgs-ites.)) NXT displays a three
  90. line menu of less used constants and units. ENTER converts to SI units
  91. (i.e. the UBASE function.) +/- runs a program I wrote to convert to
  92. cgs units. Any other key except shift, alpha, on will abort the
  93. program and leave the stack in pristine condition. (Note: batteries
  94. and cgs conversion program not included.)
  95.  
  96. There may be a few of you out there who don't require the mass of the
  97. sun or use parsecs often enough to want these crowding their menus.
  98. To design your own menu: Run the UCLEAR program, and tell it how many
  99. rows you want (say, 4) your menu to have. After some pretty pictures,
  100. it will exit with a blank multi-leveled list in level 1 and a grob in
  101. level 2.  Save these in a couple of variables (say 'LST' and 'GRB'.)
  102. Now you can start filling your virgin menu using the UMOD program.
  103.  
  104. Put the names of the GROB variable in level two, and the name of the
  105. list variable in level one ('GRB' ENTER 'LST' in our example.) and run
  106. UMOD. You will be presented with the multi-line menu, all of which
  107. will be blank at present. Press the button you wish to redefine (say,
  108. the MTH key.) You will be asked for a label for this key. (If you wish
  109. to leave the label unchanged, just hit ENTER. If you give a too long
  110. label, you will be asked again.) In this case, we want to put the gas
  111. constant R=8.317 J mol^-1 K^-1 in the menu, so we give it the label R.
  112. Now we have a list of options according to what we want to assign to
  113. the key. (The options are constant object, library constant, menu, no
  114. change, program name, unit.) We press C for constant object, and type
  115.  
  116. 8.314 _ [UNITS] [NXT] [ENRG] [J] / [UNITS] [MASS] [NXT] [NXT] mol /
  117. [UNITS] [NXT] [TEMP] [K] [ENTER] 
  118.  
  119. (note the unit menus will only give you the name of the unit. You have
  120. to type the underscore, multiplications and divisions yourself) or
  121. alternatively 
  122.  
  123. 8.314_J/mol/K [ENTER]
  124.  
  125. The UMOD program now exits, with the grob and list variables modified,
  126. and their names still on the stack. Next we want to assign the unit eV
  127. (electron volt) to the STO key. Run UMOD. Note that the display now
  128. shows "R" on the position corresponding to the MTH key. Press STO (the
  129. key we want to modify.) Type the label, "eV" and ENTER. Choose "U" for
  130. unit from the menu. Type "eV [ENTER]" again (or use the UNITS menu to
  131. type it for you.) Congratulations, you have just created a unit menu
  132. key. For those of you who are impatient, and want to try out your new
  133. menu, store the program 
  134. \<< 'GRB' 'LST' UMENU \>>
  135. in a variable and run it whenever you want to try things out. Make
  136. sure you restore the stack to having 'GRB' and 'LST' on levels 2 and 1
  137. before running UMOD again.
  138.  
  139. Next, we often use the built in function IP and don't like
  140. fishing through menus for it, so we'll assign this to the PRG key. Run
  141. UMOD, press PRG, type the label INT (we prefer INT to IP, and the
  142. label need not be the same), select P for program, type IP (the
  143. function name) and we are done. (We are all big girls and boys now,
  144. and I don't have to keep putting the ENTERs in the instructions, do
  145. I?) Next, we are addicted to TETRIS, and are too lazy to push NXT
  146. several times to find it in our horribly cluttered home directory, so
  147. we'll assign it to the C key. Run UMOD (this still needs the names of
  148. the grob and list variables on the stack, but if you have been
  149. following instructions like good kiddies, they will still be there. If
  150. you were so rude as to balance your checkbook half way through the
  151. demonstration, put the names back again.) Press C. Type the label
  152. Tetris. Oops! The label was too long. Type Ttrs. Push P for program.
  153. Type TETRIS (or whatever you have named your tetris program.
  154. (Batteries and Tetris program not included either.))
  155.  
  156. Having had nagging doubts, we pull out our "Eton Statistical & Math
  157. Tables" and find out that the gas constant R is 8.317, not 8.314.
  158. Damn. Let's change it. Run UMOD, press the MTH key (which we previously
  159. assigned R to.) We don't want to change the label, just the value, so
  160. just hit ENTER when asked for the label. C for constant object.
  161. 8.317_J/mol/K. Now, we have had second thoughts about using the label
  162. "INT" for the IP function, and want to change it. Run UMOD, press PRG
  163. (defined as INT), type the new label IP and choose N for no change, so
  164. that only the label gets changed. The old function of the key (execute
  165. IP) remains unchanged.
  166.  
  167. [Imagine endless tedium as we fill up the rest of the menu, with the
  168. exception of the NXT key.]
  169.  
  170. Now the menu is full, but we still have an overwhelming desire to have
  171. the launch date of the HP-19C calculator at our fingertips. (Ooooo!
  172. What a sexy calculator that one was!) Cursing our lack of foresight
  173. not to make the menu a row bigger, we decide to make a second menu,
  174. with 6 rows so that we won't run out of space again. (Alright! The
  175. person who said "Why not just assign the HP-19C date to the NXT key"
  176. like to finish giving this lecture? No? Then don't interrupt.) (Hey,
  177. it's midnight, and I'm tired. I'm livening things up with all these
  178. silly parenthetical comments. If you don't like them, please feel free
  179. to rewrite the instructions. (Seriously, if somebody wants to do a
  180. better job, I'm only to happy for them to do so. Post it to me and the
  181. net.  (I thought the whole point of RPN was to avoid all these stupid
  182. nested parenthesis.))) Run UCLEAR again to make a new blank menu. Tell
  183. it 6 rows. Notice how it makes the sizes of the label areas match the
  184. different key sizes, and labels and reserves the alpha key. Pretty
  185. neat, huh?  Store the nested blank lists in LST2 and the grob in GRB2.
  186. Put 'GRB2' and 'LST2' on the stack. Run UMOD. Push the ENTER key. (The
  187. HP-19C deserves no less.) Type the label HP-19C. Select C for
  188. constant. Type the value: 1.091977 (dd.mmyyy format.)
  189.  
  190. Now we want to assign the NXT key on our original menu to access the
  191. new menu. Drop 'GRB2' and 'LST2' from the stack. Hopefully, 'GRB' and
  192. 'LST' are now in levels 2 and 1. If not, PUT THEM BACK, BOZO! Run
  193. UMOD. Press the NXT key. Type NEXT. Push M for Menu. You are asked for
  194. the graphic variable name. Type GRB2. You are asked for the values
  195. variable name. Type LST2. All done. We could assign the NXT key in the
  196. GRB2/LST2 menu to run the GRB/LST menu as well.
  197.  
  198. This is the end of the tutorial. You will notice that I didn't give
  199. any instructions on how to use the option "L-library constant" in the
  200. menu of object types. There is a simple reason for this. This is to
  201. access constants in the HP equation card, and the feature was put in
  202. by whosit who wrote version 2 of the program. I don't have the
  203. equation card (bought my calc before the free offer. sigh.) so I've
  204. never tried to use this option.
  205.  
  206. Some final comments: You can also directly edit the grob and list
  207. variables. This allows you to enlarge old menus and add shifted
  208. functions to non-unit keys. I've just got Goodies Disks 2,3 and 5, and
  209. there is some information on running programs while the command line
  210. is active and detecting from within a program what mode (PRG, etc) you
  211. are in. I hope at some stage to add these capabilities.
  212.  
  213. Here begineth the program listings: (I've lost my cable, so I haven't
  214. been able to load the following to check that nothing has gone astray
  215. in the commenting and rearranging process.)
  216. END_DOC
  217.  
  218. BEGIN_RPL fsmenu.rpl
  219. %%HP: T(3)A(D)F(.);
  220. DIR
  221.   UMENU
  222.     \<< \-> ugrob
  223. uvalues
  224.       \<< LCD\-> { # 0d
  225. # 0d } ugrob RCL
  226. REPL PICT STO {
  227. # 0d # 0d } PVIEW 0
  228. WAIT
  229.         IFERR
  230. uvalues RCL OVER 10
  231. / IP GET OVER 10
  232. MOD GET
  233.         THEN DROP
  234. DROP DROP KILL
  235.         END
  236.         IFERR SWAP
  237. FP 10 * GET
  238.         THEN DROP
  239. DROP KILL
  240.         END EVAL
  241.       \>>
  242.     \>>
  243.   UGR
  244. GROB 131 41 FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FF3FFDFF8F7FF5FFDF7CF7FFFFFDF7BF70FFDFFDF7FF7FF5FFDF7FF7FF1FFDF7DF70FFDFFDF79F7FF1FFDF7CF7FFAFFDF7EF70FFDFFDF7BF7FF5FFDF7FF7FFAFFDF7DF70FF3FFDFF8F7FF5FFDF7CF7FFDFFDF7BF70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70177B35CDDE4DD45B5E35D6DF45BD6151705725D5F94579475A5DD596D775AD4D5B701751B5C55C65D6585EB516DF658D01BB70D77575FD5D5DD5595D7556DF559D2D5B70D575954D556D564B5591D61564BD615B70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FF3FFDFBBF7FBD8FDDDD17FF7FFDF7BF70FFDFFDF39F7FB6FFD9C877FF7FFDF7DF70FFBFFDFBAF7F379FD55517FF7FFDF7EF70FF7FFDFBBF7FB6BFDDDD77FF5FFDF7DF70FF9FFDFBBF7FBD8FDDDD17FF1FFDF7BF70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F75EFDF9EE7FF3EFD47774F193EDFBBF70F75DFDFE4E7FFDFF5723E5FD5DFDFBBF70FF6EFDFEAE7FF5EF575554F195EDFBAF70FF6DFDFEEE7FFDEF5777F5FD5!
  245. DEDF39F70FF6DFDF9EE7FF3EFD47774F15
  246. 3EDFBBF70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFFFFFF7FFFFFDFFFF7FFFFFDFFFF70FFFACD98FF77FC89DF13F7F74DFDFFCF70FFFAAAEEFF7F67FEDF5DF7F77DFDF7FF70FFFAC8D8FF73479DDF1DF7F74DFDF7FF70FFFAAABEFF7F67BBDFDDF7F7FEFDF7FF70FFF8CAC8FF77FC8CDFD3F7F7CEFDFFCF70FFFFFFFFFF7FFFFFDFFFF7FFFFFDFFFF7000000000000000000000000000000000000000000000000000000000000000000000
  247.   UGR2
  248. GROB 131 25 FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FFCEFDFFBF775E6EDFEEF7F7EFFDFF1F70F77DFDFA5F77555DDF46F7F7DEFDF1BF70F74DFDFA5F77464EDFA2E7F76CFDFABF70F77DFDF05F77555DDFE6F7F7DEFDFABF70FFCEFDFEBF77565DDFEEF7F7DFFDFDBF70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FF9FFDFB5F71FCCADFBBF772A5DD615170FF5FFDF55F7D77BADF55F7BB25DD4D5B70FF9FFDF15F71F6BADF15F7BB24DD01BB70FF5FFDF5BF7DF5DADF55F7BBACED2D5B70FF5FFDF5BF715EA8DF5BF772ADED615B70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FFBFFDFB5F7FE26E5BEE66FF3FFD7BBA70FF5FFDF55F7F4AAF5D4EA7FFDFFDB29A70FF1FFDF15F7FA2AF5EA677FFDFFD3AAA70FF5FFDF55F7FEABF5DEAF6FFDFFDBABA70FF5FFDF51F7FEA7E5BEA37FF3FFDBAB870FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF7000000000000000000000000000000000000000000000000000000000000000000000
  249.   UVL { { { '
  250. 299792458_m/s' } {
  251. '6.672E-11_N*m^2/kg
  252. ^2' } { '
  253. 6.62618E-34_J*s' }
  254. { '1.602189E-19_C'
  255. } { '.000000056703_
  256. W/(m^2*K^4)' } { '
  257. 1.38066E-23_J/K' }
  258. } { { '1.672649E-27
  259. _kg' } { '
  260. 9.010953E-31_kg' }
  261. { '1.989E30_kg' } {
  262. '695990000_m' } { '
  263. 3.826E26_W' } {
  264.     \<< 'UGR2' 'UVL2'
  265. UMENU
  266.     \>> } } { {
  267.     \<< '1_s' *
  268.     \>>
  269.     \<< '1_s' CONVERT
  270.     \>>
  271.     \<< '1_s' /
  272.     \>> } {
  273.     \<< '1_m' *
  274.     \>>
  275.     \<< '1_m' CONVERT
  276.     \>>
  277.     \<< '1_m' /
  278.     \>> } {
  279.     \<< '1_kg' *
  280.     \>>
  281.     \<< '1_kg'
  282. CONVERT
  283.     \>>
  284.     \<< '1_kg' /
  285.     \>> } {
  286.     \<< '1_m^3' *
  287.     \>>
  288.     \<< '1_m^3'
  289. CONVERT
  290.     \>>
  291.     \<< '1_m^3' /
  292.     \>> } {
  293.     \<< '1_J' *
  294.     \>>
  295.     \<< '1_J' CONVERT
  296.     \>>
  297.     \<< '1_J' /
  298.     \>> } {
  299.     \<< '1_K' *
  300.     \>>
  301.     \<< '1_K' CONVERT
  302.     \>>
  303.     \<< '1_K' /
  304.     \>> } } { {
  305.     \<< '1_yr' *
  306.     \>>
  307.     \<< '1_yr'
  308. CONVERT
  309.     \>>
  310.     \<< '1_yr' /
  311.     \>> } {
  312.     \<< '1_cm' *
  313.     \>>
  314.     \<< '1_cm'
  315. CONVERT
  316.     \>>
  317.     \<< '1_cm' /
  318.     \>> } {
  319.     \<< '1_g' *
  320.     \>>
  321.     \<< '1_g' CONVERT
  322.     \>>
  323.     \<< '1_g' /
  324.     \>> } {
  325.     \<< '1_cm^3' *
  326.     \>>
  327.     \<< '1_cm^3'
  328. CONVERT
  329.     \>>
  330.     \<< '1_cm^3' /
  331.     \>> } {
  332.     \<< '1_erg' *
  333.     \>>
  334.     \<< '1_erg'
  335. CONVERT
  336.     \>>
  337.     \<< '1_erg' /
  338.     \>> } {
  339.     \<< '1_W' *
  340.     \>>
  341.     \<< '1_W' CONVERT
  342.     \>>
  343.     \<< '1_W' /
  344.     \>> } } { {
  345.     \<< UBASE
  346.     \>> } {
  347.     \<< \->CGS
  348.     \>> } {
  349.     \<< '1_pc' *
  350.     \>>
  351.     \<< '1_pc'
  352. CONVERT
  353.     \>>
  354.     \<< '1_pc' /
  355.     \>> } {
  356.     \<< '1_eV' *
  357.     \>>
  358.     \<< '1_eV'
  359. CONVERT
  360.     \>>
  361.     \<< '1_eV' /
  362.     \>> } {
  363.     \<< '1_C' *
  364.     \>>
  365.     \<< '1_C' CONVERT
  366.     \>>
  367.     \<< '1_C' /
  368.     \>> } } }
  369.   UVL2 { { { '
  370. 8.85418782E-12_C^2/
  371. (N*m^2)' } { '
  372. 1.256637062E-6_Wb/(
  373. A*m)' } { '
  374. 1.054589E-34_J*s' }
  375. { '5.976E24_kg' } {
  376. '6370000_m' } { '
  377. 6.65245E-29_m^2' }
  378. } { { '8.31441_J/(K
  379. *mol)' } { '
  380. 6.022045E23_1/mol'
  381. } { '
  382. 2.30711144976E-19_g
  383. *cm^3/s^2' } { '
  384. 5.2917706E-11_m' }
  385. {
  386.     \<< CONVERT
  387.     \>> } {
  388.     \<< 'UGR' 'UVL'
  389. UMENU
  390.     \>> } } { {
  391.     \<< '1_\197' *
  392.     \>>
  393.     \<< '1_\197' CONVERT
  394.     \>>
  395.     \<< '1_\197' /
  396.     \>> } {
  397.     \<< '1_au' *
  398.     \>>
  399.     \<< '1_au'
  400. CONVERT
  401.     \>>
  402.     \<< '1_au' /
  403.     \>> } {
  404.     \<< '1_Mpc' *
  405.     \>>
  406.     \<< '1_Mpc'
  407. CONVERT
  408.     \>>
  409.     \<< '1_Mpc' /
  410.     \>> } {
  411.     \<< '1_km/s' *
  412.     \>>
  413.     \<< '1_km/s'
  414. CONVERT
  415.     \>>
  416.     \<< '1_km/s' /
  417.     \>> } {
  418.     \<< '1_c' *
  419.     \>>
  420.     \<< '1_c' CONVERT
  421.     \>>
  422.     \<< '1_c' /
  423.     \>> } {
  424.     \<< '1_u' *
  425.     \>>
  426.     \<< '1_u' CONVERT
  427.     \>>
  428.     \<< '1_u' /
  429.     \>> } } }
  430.   KEYSIZE { { 6
  431. # 20d # 22d # 42d
  432. # 22d } { 6 # 20d
  433. # 22d # 42d # 22d }
  434. { 6 # 20d # 22d
  435. # 42d # 22d } { 6
  436. # 20d # 22d # 42d
  437. # 22d } { 5 # 42d
  438. # 44d # 64d # 22d }
  439. { 5 # 20d # 24d
  440. # 49d # 27d } { 5
  441. # 20d # 24d # 49d
  442. # 27d } { 5 # 20d
  443. # 24d # 49d # 27d }
  444. }
  445.   UCLEAR
  446.     \<<
  447. "Enter number of rows"
  448. { V } INPUT OBJ\-> \->
  449. n
  450.       \<<
  451.         IF 'n<1 OR
  452. n>8 OR FP(n)\=/0'
  453.         THEN KILL
  454.         END ERASE {
  455. # 0d # 0d } PVIEW 1
  456. n
  457.         FOR row
  458. KEYSIZE row GET
  459. LIST\-> DROP \-> m e1
  460. s2 e2 inc
  461.           \<< 1 m
  462.             FOR col
  463.               IF '
  464. col==1'
  465.               THEN
  466. # 0d e1
  467.               ELSE
  468. col 2 - inc * DUP
  469. s2 + SWAP e2 +
  470.               END \->
  471. x1 x2
  472.               \<< row
  473. 1 - 8 * DUP 6 +
  474. FOR line x1 line
  475. R\->B 2 \->LIST x2 line
  476. R\->B 2 \->LIST LINE
  477. NEXT
  478.               \>>
  479.             NEXT
  480.           \>>
  481.         NEXT PICT {
  482. # 8d # 41d } "\Ga" 1
  483. \->GROB GXOR PICT {
  484. # 7d # 49d }
  485. GROB 7 5 4020F72444
  486. GXOR PICT { # 7d
  487. # 57d }
  488. GROB 7 5 0102F71211
  489. GXOR PICT { # 0d
  490. # 0d } # 131d n
  491. # 8d * # 1d - 2
  492. \->LIST SUB { } 1 n
  493.         FOR row { }
  494. 1 KEYSIZE row GET 1
  495. GET
  496.           FOR col {
  497. { } } +
  498.           NEXT 1
  499. \->LIST +
  500.         NEXT
  501.       \>>
  502.     \>>
  503.   UMOD
  504.     \<< DUP RCL SIZE
  505. \-> ugrob uvalues n
  506.       \<< ugrob RCL
  507. PICT STO { # 0d
  508. # 0d } PVIEW 0 WAIT
  509.         IF DUP n 1
  510. + 10 * >
  511.         THEN DROP
  512. ugrob uvalues KILL
  513.         END DUP 10
  514. / IP SWAP IP 10 MOD
  515. \-> row col
  516.         \<< KEYSIZE
  517. row GET
  518.           IF 'col==
  519. 1'
  520.           THEN 2
  521. GET # 0d
  522.           ELSE
  523. LIST\-> DROP col 2 -
  524. * SWAP OVER + ROT
  525. ROT + ROT DROP ROT
  526. DROP
  527.           END row 1
  528. - 8 * \-> x2 x1 y
  529.           \<< PICT 0
  530.             DO DROP
  531. STD row "," + col +
  532. " Label?" + { \Ga }
  533. INPUT 1 \->GROB
  534.             UNTIL
  535. DUP SIZE DROP 'x2-
  536. x1' EVAL \<=
  537.             END DUP
  538. SIZE DROP
  539.             IF DUP
  540. # 0d ==
  541.             THEN
  542. DROP DROP DROP
  543.             ELSE y
  544. 'y+6'
  545.               FOR
  546. line x1 line R\->B 2
  547. \->LIST x2 line R\->B 2
  548. \->LIST LINE
  549.               NEXT
  550. 'x1+x2+2' EVAL SWAP
  551. - 2 / y # 1d + 2
  552. \->LIST SWAP GXOR
  553.             END
  554.           \>> PICT {
  555. # 0d # 0d } # 131d
  556. n # 8d * 2 \->LIST
  557. SUB ugrob STO
  558. uvalues RCL DUP row
  559. GET
  560.           DO
  561. "C-constant object"
  562. 1 DISP
  563. "L-library constant"
  564. 2 DISP "M-menu" 3
  565. DISP "N-no change"
  566. 4 DISP
  567. "P-program name" 5
  568. DISP "U-unit" 6
  569. DISP 0 WAIT IP
  570.             CASE
  571. DUP 13 ==
  572.               THEN
  573. DROP
  574. "Constant Object" {
  575. V } INPUT OBJ\-> 1
  576. \->LIST 1
  577.               END
  578. DUP 26 ==
  579.               THEN
  580. DROP
  581. "Constant Name" { \Ga
  582. } INPUT "\<< '" SWAP
  583. + "' CONST \>>" +
  584. OBJ\-> 1 \->LIST 1
  585.               END
  586. DUP 31 ==
  587.               THEN
  588. DROP "\<< '"
  589. "Graphic variable name"
  590. { \Ga } INPUT + "' '"
  591. +
  592. "Values variable name"
  593. { \Ga } INPUT +
  594. "' UMENU \>>" + OBJ\->
  595. 1 \->LIST 1
  596.               END
  597. DUP 32 ==
  598.               THEN
  599. DROP DUP col GET 1
  600.               END
  601. DUP 34 ==
  602.               THEN
  603. DROP "Program name"
  604. { \Ga } INPUT "\<< "
  605. SWAP + " \>>" + OBJ\->
  606. 1 \->LIST 1
  607.               END
  608. 43 ==
  609.               THEN
  610. "Unit Name" { \Ga }
  611. INPUT \-> u
  612. \<< "\<< 1_" u + " * \>>"
  613. + OBJ\-> "\<< 1_" u +
  614. " CONVERT \>>" + OBJ\->
  615. "\<< 1_" u + " / \>>" +
  616. OBJ\-> 3 \->LIST
  617. \>> 1
  618.               END 0
  619.             END
  620.           UNTIL
  621.           END col
  622. SWAP PUT row SWAP
  623. PUT uvalues STO
  624.         \>> ugrob
  625. uvalues
  626.       \>>
  627.     \>>
  628. END
  629. END_RPL
  630.  
  631. BEGIN_ASC fsmenu.asc
  632. %%HP: T(3)A(D)F(.);
  633. "69A20FF781830000004055D4F44440D9D20E163278BF104B028B9C11C432D6E2
  634. 050577627F626D6E2070576716C6575637D6E2010E6E1632D6E2050577627F62
  635. 604B02634E1DCC0247A20E4A20510000000000000000000E4A20510000000000
  636. 000000000B21300F2E14B2A2F17A13CE2278BF1D6E2010E69C2A276BA1339201
  637. 000000000000010EEDA1D5CE1AFE22D9D208DBF1D6E2050577627F626D6E2070
  638. 576716C6575637303A1B21305DF2278BF133920100000000000001050FA1D6BB
  639. 1DBBF1D6BB1339201000000000000010D4EB11C432D6E203027F677D6E203036
  640. F6C6E163284E2070B454953594A554D6E203027F6776C7D13CE228BA20D6E203
  641. 036F6C69C2A2279E1B2130AFE22D9D20ED2A26C7D1E4A2051000000000000000
  642. 0000B21305BF22D9D20A59C18DBF1D6E203036F6C6ED2A290DA1EEDA1DBBF192
  643. CF176BA1E0CF1E0CF176BA1E0CF18DBF1E0CF18DBF1B21305DF22D6E203027F6
  644. 779C2A290DA1C53A2EEDA11C432D6E20208723D6E20208713D6E201097E16326
  645. 34E14B2A23C0328DBF1684C1D6E203027F677C2A2070000C276BA1D6E203036F
  646. 6C676BA1C2A203100002C4162656C6F376BA147A2084E2010C8B2130AC4229C2
  647. A2DA5E1DE03278BF18B9C18DBF18BA20D6E20208723D6E2020871390DA1B2130
  648. EB3A1CFCE19B63278BF18B9C18DBF13CE2278BF1E4A205100000000000000000
  649. 00279E1AFE22D9D208DBF18DBF18DBF1B21305BF22D9D20D6E2010978BA20D6E
  650. 201097233A276BA1B21300A132D6E2040C696E656D6E20208713D6E2040C696E
  651. 656B9691ED2A2387C1D6E20208723D6E2040C696E656B9691ED2A2387C1893E1
  652. C42328BA20D6E20208713D6E2020872376BA1ED2A276BA1B2130EB3A1DBBF190
  653. DA1ED2A250FA1D6E201097E4A2051000100000000000000076BA1ED2A2387C1D
  654. BBF14E4E1B21305DF22EF532634E147A20E4A20510000000000000000000E4A2
  655. 0510000000000000000000B2130E4A20510003800000000000000D6E2010E6E4
  656. A20510008000000000000000EEDA1ED2A2387C1C58C1D6E2050577627F626DCC
  657. 02D6E2070576716C657563704B0278BF1D6E203027F6776C7D13C032C2A20720
  658. 0034D236F6E6374716E64702F626A65636479C2A2485A1C2A2092000C4D2C696
  659. 26271627970236F6E6374716E647ED2A2485A1C2A2011000D4D2D656E6573F2A
  660. 2485A1C2A20B1000E4D2E6F602368616E67656803A2485A1C2A201200005D207
  661. 27F6762716D602E616D656D13A2485A1C2A201100055D257E69647233A2485A1
  662. 4B2A2F17A1D6BB1D8732D9D2078BF1339201000000000000310279E18A732D9D
  663. 208DBF1C2A203200034F6E6374716E64702F426A656364747A2084E201065B21
  664. 30AC422B7FC19C2A2387C19C2A2B21305DF2278BF13392010000000000006202
  665. 79E18A732D9D208DBF1C2A20F100034F6E6374716E64702E416D65647A2084E2
  666. 010C8B2130AC422C2A20B0000BA0272DBBF176BA1C2A2071000720234F4E4354
  667. 502BB76BA1B7FC19C2A2387C19C2A2B21305DF2278BF13392010000000000001
  668. 30279E18A732D9D208DBF1C2A20B0000BA0272C2A20F20007427160786963602
  669. 671627961626C65602E616D65647A2084E2010C8B2130AC42276BA1C2A20B000
  670. 072027276BA1C2A20D20006516C657563702671627961626C65602E616D65647
  671. A2084E2010C8B2130AC42276BA1C2A2071000720255D454E45502BB76BA1B7FC
  672. 19C2A2387C19C2A2B21305DF2278BF1339201000000000000230279E18A732D9
  673. D208DBF178BF1D6E203036F6C66C7D19C2A2B21305DF2278BF13392010000000
  674. 00000430279E18A732D9D208DBF1C2A20D10000527F6762716D602E616D65647
  675. A2084E2010C8B2130AC422C2A2090000BA02DBBF176BA1C2A209000002BB76BA
  676. 1B7FC19C2A2387C19C2A2B21305DF22339201000000000000340279E18A732D9
  677. D20C2A207100055E6964702E416D65647A2084E2010C8B2130AC4221C432D6E2
  678. 01057E1632C2A20D0000BA0213F5D6E20105776BA1C2A20D000002A202BB76BA
  679. 1B7FC1C2A20D0000BA0213F5D6E20105776BA1C2A20910000234F4E465542545
  680. 02BB76BA1B7FC1C2A20D0000BA0213F5D6E20105776BA1C2A20D000002F202BB
  681. 76BA1B7FC13F2A2387C1EF5329C2A2B21305DF224B2A2B21305DF22DE0329B63
  682. 2D6E203036F6C6DBBF1704D1D6E203027F677DBBF1704D1D6E2070576716C657
  683. 5637DCC02EF532D6E2050577627F626D6E2070576716C6575637EF53293632B2
  684. 1301BC00605534C454142560D9D20E1632C2A20D200054E647562702E657D626
  685. 562702F6660227F6773747A2084E201065B2130AC422B7FC11C432D6E2010E6E
  686. 16323CE228BA20D6E2010E69C2A2EBBE1D6E2010E6C53A2D5CE1908E1D6E2010
  687. E63ABB14B2A2D9AE1908E1B2130AFE22303A15DF22F52E147A20E4A205100000
  688. 00000000000000E4A20510000000000000000000B21300F2E19C2A2D6E2010E6
  689. 0A132D6E203027F67784E2070B454953594A554D6E203027F6776C7D1A59C18D
  690. BF11C432D6E2010D6D6E20205613D6E20203723D6E20205623D6E203096E636E
  691. 16329C2A2D6E2010D60A132D6E203036F6C63CE228BA20D6E203036F6C69C2A2
  692. 279E1B2130AFE22D9D20E4A20510000000000000000000D6E20205613B21305B
  693. F22D9D20D6E203036F6C6ED2A290DA1D6E203096E636EEDA178BF1D6E2020372
  694. 376BA1DBBF1D6E2020562376BA1B21305DF221C432D6E20208713D6E20208723
  695. E1632D6E203027F6779C2A290DA1C53A2EEDA178BF1233A276BA10A132D6E204
  696. 0C696E656D6E20208713D6E2040C696E656B9691ED2A2387C1D6E20208723D6E
  697. 2040C696E656B9691ED2A2387C1893E1C4232EF532C4232EF532C4232634E147
  698. A20E4A20510008000000000000000E4A20510009200000000000000B2130C2A2
  699. 070000C89C2A2DA5E14E4E1634E147A20E4A20510007000000000000000E4A20
  700. 510001300000000000000B2130E1B209100050000700004020F724444E4E1634
  701. E147A20E4A20510007000000000000000E4A20510009300000000000000B2130
  702. E1B209100050000700000102F712114E4E1634E147A20E4A2051000000000000
  703. 0000000E4A20510000000000000000000B2130E4A20510003800000000000000
  704. D6E2010E6E4A20510008000000000000000EEDA1E4A205100010000000000000
  705. 0090DA1ED2A2387C1C58C147A20B21309C2A2D6E2010E60A132D6E203027F677
  706. 47A20B21309C2A284E2070B454953594A554D6E203027F6776C7D19C2A26C7D1
  707. 0A132D6E203036F6C647A2047A20B2130B213076BA1C42329C2A2387C176BA1C
  708. 4232EF53293632B2130B060070B454953594A5547047A2047A20233A2E4A2051
  709. 0004100000000000000E4A20510006100000000000000E4A2051000A20000000
  710. 0000000E4A20510006100000000000000B213047A20233A2E4A2051000410000
  711. 0000000000E4A20510006100000000000000E4A2051000A200000000000000E4
  712. A20510006100000000000000B213047A20233A2E4A2051000410000000000000
  713. 0E4A20510006100000000000000E4A2051000A200000000000000E4A20510006
  714. 100000000000000B213047A20233A2E4A20510004100000000000000E4A20510
  715. 006100000000000000E4A2051000A200000000000000E4A20510006100000000
  716. 000000B213047A20D13A2E4A2051000A200000000000000E4A2051000C200000
  717. 000000000E4A20510000400000000000000E4A20510006100000000000000B21
  718. 3047A20D13A2E4A20510004100000000000000E4A20510008100000000000000
  719. E4A20510001300000000000000E4A2051000B100000000000000B213047A20D1
  720. 3A2E4A20510004100000000000000E4A20510008100000000000000E4A205100
  721. 01300000000000000E4A2051000B100000000000000B213047A20D13A2E4A205
  722. 10004100000000000000E4A20510008100000000000000E4A205100013000000
  723. 00000000E4A2051000B100000000000000B2130B21304D300405565C4234047A
  724. 2047A2047A20ADA20339208890002878145880C2A207000034ED2A227B01C2A2
  725. 070000E4C2A2070000D6ED2A227B01E5B0186B0168B01B2130B213047A20ADA2
  726. 0339204990026073665210C2A20900007526C2A207000014C2A2070000D6E5B0
  727. 186B0168B01B2130B213047A20ADA20339206690000098545010C2A2070000A4
  728. C2A207000037E5B0168B01B2130B213047A20ADA20339204200000000067950F
  729. B920B6C2A207000076C7B0168B01B2130B213047A20ADA203392060000000000
  730. 07360C2A2070000D668B01B2130B213047A20ADA20339201790000005425660C
  731. 2A2070000D6ED2A227B0168B01B2130B2130B213047A2047A20ADA2033920000
  732. 0000001441380C2A2070000A4C2A2070000B4C2A20B0000D6F6C6E5B0186B016
  733. 8B01B2130B213047A20ADA2033920320000005402206085356C2A20B0000D6F6
  734. C686B0168B01B2130B213047A20ADA20339201896794411170320C2A20700007
  735. 6FB92036C2A2070000D6C7B013F2A227B01E5B01C2A207000037ED2A227B0186
  736. B0168B01B2130B213047A20ADA20339209890000607719250C2A2070000D668B
  737. 01B2130B213047A20D9D20E1632BD69193632B2130B213047A20D9D20E163245
  738. 63284E2030557425976324563284E20305565C49763284E205055D454E455936
  739. 32B2130B2130B213047A2047A20D9D20E1632ADA209C2A2C2A20700005C68B01
  740. B2130EEDA193632B2130D9D20E1632ADA209C2A2C2A20700005C68B01B2130BD
  741. 69193632B2130D9D20E1632ADA209C2A2C2A20700005C68B01B213050FA19363
  742. 2B2130B213047A20D9D20E1632ADA209C2A2C2A2090000165768B01B2130EEDA
  743. 193632B2130D9D20E1632ADA209C2A2C2A2090000165768B01B2130BD6919363
  744. 2B2130D9D20E1632ADA209C2A2C2A2090000165768B01B213050FA193632B213
  745. 0B213047A20D9D20E1632ADA209C2A2FB920D4C2A20900000736C7B0168B01B2
  746. 130EEDA193632B2130D9D20E1632ADA209C2A2FB920D4C2A20900000736C7B01
  747. 68B01B2130BD69193632B2130D9D20E1632ADA209C2A2FB920D4C2A209000007
  748. 36C7B0168B01B213050FA193632B2130B213047A20D9D20E1632ADA209C2A2FB
  749. 920B6C2A2070000D6C7B01C2A20700003786B0168B01B2130EEDA193632B2130
  750. D9D20E1632ADA209C2A2FB920B6C2A2070000D6C7B01C2A20700003786B0168B
  751. 01B2130BD69193632B2130D9D20E1632ADA209C2A2FB920B6C2A2070000D6C7B
  752. 01C2A20700003786B0168B01B213050FA193632B2130B213047A20D9D20E1632
  753. ADA209C2A2C2A20700003668B01B2130EEDA193632B2130D9D20E1632ADA209C
  754. 2A2C2A20700003668B01B2130BD69193632B2130D9D20E1632ADA209C2A2C2A2
  755. 0700003668B01B213050FA193632B2130B213047A20D9D20E1632ADA209C2A2C
  756. 2A20700005768B01B2130EEDA193632B2130D9D20E1632ADA209C2A2C2A20700
  757. 005768B01B2130BD69193632B2130D9D20E1632ADA209C2A2C2A20700005768B
  758. 01B213050FA193632B2130B2130B2130B21304B800305565C43047A2047A2047
  759. A20ADA20339208000008542979920C2A2070000D6C2A20700003786B0168B01B
  760. 2130B213047A20ADA20339209890000000027660C2A2070000E4C2A2070000D6
  761. ED2A227B01E5B01FB920B6C2A207000076C7B01ED2A227B0186B0168B01B2130
  762. B213047A20ADA20339206690000008162660C2A2070000A4C2A207000037E5B0
  763. 168B01B2130B213047A20ADA20339201890000098120610C2A20700003468B01
  764. B2130B213047A20ADA20339202990000000307650C2A207000075C2A2070000D
  765. 6ED2A227B01C2A2070000B4803A227B01E5B0186B0168B01B2130B213047A20A
  766. DA20339207790000006608310C2A2070000A4C2A2070000B486B0168B01B2130
  767. B2130B213047A2047A20ADA20339203790000094627610FB920B6C2A20700007
  768. 6C7B0168B01B2130B213047A20ADA20339209690000035901090FB920B6C2A20
  769. 7000076C7B0168B01B2130B213047A20ADA20339200300000000098910FB920B
  770. 6C2A207000076C7B0168B01B2130B213047A20ADA20339208000000000995960
  771. C2A2070000D668B01B2130B213047A20ADA20339206200000000062830C2A207
  772. 00007568B01B2130B213047A20D9D20E16324563284E20405574252397632456
  773. 3284E20405565C4239763284E205055D454E45593632B2130B2130B213047A20
  774. 47A20D9D20E1632ADA209C2A2C2A20700003768B01B2130EEDA193632B2130D9
  775. D20E1632ADA209C2A2C2A20700003768B01B2130BD69193632B2130D9D20E163
  776. 2ADA209C2A2C2A20700003768B01B213050FA193632B2130B213047A20D9D20E
  777. 1632ADA209C2A2C2A2070000D668B01B2130EEDA193632B2130D9D20E1632ADA
  778. 209C2A2C2A2070000D668B01B2130BD69193632B2130D9D20E1632ADA209C2A2
  779. C2A2070000D668B01B213050FA193632B2130B213047A20D9D20E1632ADA209C
  780. 2A2FB920B6C2A207000076C7B0168B01B2130EEDA193632B2130D9D20E1632AD
  781. A209C2A2FB920B6C2A207000076C7B0168B01B2130BD69193632B2130D9D20E1
  782. 632ADA209C2A2FB920B6C2A207000076C7B0168B01B213050FA193632B2130B2
  783. 13047A20D9D20E1632ADA209C2A2C2A2070000D63F2A227B0168B01B2130EEDA
  784. 193632B2130D9D20E1632ADA209C2A2C2A2070000D63F2A227B0168B01B2130B
  785. D69193632B2130D9D20E1632ADA209C2A2C2A2070000D63F2A227B0168B01B21
  786. 3050FA193632B2130B213047A20D9D20E1632ADA209C2A2C2A2070000A468B01
  787. B2130EEDA193632B2130D9D20E1632ADA209C2A2C2A2070000A468B01B2130BD
  788. 69193632B2130D9D20E1632ADA209C2A2C2A2070000A468B01B213050FA19363
  789. 2B2130B213047A20D9D20E1632ADA209C2A2C2A2070000B468B01B2130EEDA19
  790. 3632B2130D9D20E1632ADA209C2A2C2A2070000B468B01B2130BD69193632B21
  791. 30D9D20E1632ADA209C2A2C2A2070000B468B01B213050FA193632B2130B2130
  792. B213047A2047A20D9D20E1632ADA209C2A2C2A2090000972768B01B2130EEDA1
  793. 93632B2130D9D20E1632ADA209C2A2C2A2090000972768B01B2130BD69193632
  794. B2130D9D20E1632ADA209C2A2C2A2090000972768B01B213050FA193632B2130
  795. B213047A20D9D20E1632ADA209C2A2FB92036C2A2070000D6C7B0168B01B2130
  796. EEDA193632B2130D9D20E1632ADA209C2A2FB92036C2A2070000D6C7B0168B01
  797. B2130BD69193632B2130D9D20E1632ADA209C2A2FB92036C2A2070000D6C7B01
  798. 68B01B213050FA193632B2130B213047A20D9D20E1632ADA209C2A2C2A207000
  799. 07668B01B2130EEDA193632B2130D9D20E1632ADA209C2A2C2A20700007668B0
  800. 1B2130BD69193632B2130D9D20E1632ADA209C2A2C2A20700007668B01B21305
  801. 0FA193632B2130B213047A20D9D20E1632ADA209C2A2FB92036C2A2070000D6C
  802. 7B013F2A227B0168B01B2130EEDA193632B2130D9D20E1632ADA209C2A2FB920
  803. 36C2A2070000D6C7B013F2A227B0168B01B2130BD69193632B2130D9D20E1632
  804. ADA209C2A2FB92036C2A2070000D6C7B013F2A227B0168B01B213050FA193632
  805. B2130B213047A20D9D20E1632ADA209C2A2C2A20B000056277668B01B2130EED
  806. A193632B2130D9D20E1632ADA209C2A2C2A20B000056277668B01B2130BD6919
  807. 3632B2130D9D20E1632ADA209C2A2C2A20B000056277668B01B213050FA19363
  808. 2B2130B213047A20D9D20E1632ADA209C2A2C2A20700007568B01B2130EEDA19
  809. 3632B2130D9D20E1632ADA209C2A2C2A20700007568B01B2130BD69193632B21
  810. 30D9D20E1632ADA209C2A2C2A20700007568B01B213050FA193632B2130B2130
  811. B213047A2047A20D9D20E16321779193632B2130B213047A20D9D20E163284E2
  812. 040D834743593632B2130B213047A20D9D20E1632ADA209C2A2C2A2090000073
  813. 668B01B2130EEDA193632B2130D9D20E1632ADA209C2A2C2A2090000073668B0
  814. 1B2130BD69193632B2130D9D20E1632ADA209C2A2C2A2090000073668B01B213
  815. 050FA193632B2130B213047A20D9D20E1632ADA209C2A2C2A2090000566568B0
  816. 1B2130EEDA193632B2130D9D20E1632ADA209C2A2C2A2090000566568B01B213
  817. 0BD69193632B2130D9D20E1632ADA209C2A2C2A2090000566568B01B213050FA
  818. 193632B2130B213047A20D9D20E1632ADA209C2A2C2A20700003468B01B2130E
  819. EDA193632B2130D9D20E1632ADA209C2A2C2A20700003468B01B2130BD691936
  820. 32B2130D9D20E1632ADA209C2A2C2A20700003468B01B213050FA193632B2130
  821. B2130B2130B21305AF00405574252340E1B20163009100038000FFFFFDFFFF7F
  822. FFFFDFFFF7FFFFFDFFFF70FFCEFDFFBF775E6EDFEEF7F7EFFDFF1F70F77DFDFA
  823. 5F77555DDF46F7F7DEFDF1BF70F74DFDFA5F77464EDFA2E7F76CFDFABF70F77D
  824. FDF05F77555DDFE6F7F7DEFDFABF70FFCEFDFEBF77565DDFEEF7F7DFFDFDBF70
  825. FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70000000000000000000000000000000
  826. 0000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FF9FFDFB5F71FCCADFBBF772A5
  827. DD615170FF5FFDF55F7D77BADF55F7BB25DD4D5B70FF9FFDF15F71F6BADF15F7
  828. BB24DD01BB70FF5FFDF5BF7DF5DADF55F7BBACED2D5B70FF5FFDF5BF715EA8DF
  829. 5BF772ADED615B70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF7000000000000000
  830. 00000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FFBFFDFB5F
  831. 7FE26E5BEE66FF3FFD7BBA70FF5FFDF55F7F4AAF5D4EA7FFDFFDB29A70FF1FFD
  832. F15F7FA2AF5EA677FFDFFD3AAA70FF5FFDF55F7FEABF5DEAF6FFDFFDBABA70FF
  833. 5FFDF51F7FEA7E5BEA37FF3FFDBAB870FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF
  834. 7000000000000000000000000000000000000000000000000000000000000000
  835. 000000273003055742530E1B20185009200038000FFFFFDFFFF7FFFFFDFFFF7F
  836. FFFFDFFFF70FF3FFDFF8F7FF5FFDF7CF7FFFFFDF7BF70FFDFFDF7FF7FF5FFDF7
  837. FF7FF1FFDF7DF70FFDFFDF79F7FF1FFDF7CF7FFAFFDF7EF70FFDFFDF7BF7FF5F
  838. FDF7FF7FFAFFDF7DF70FF3FFDFF8F7FF5FFDF7CF7FFDFFDF7BF70FFFFFDFFFF7
  839. FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000000000000FFFFFDF
  840. FFF7FFFFFDFFFF7FFFFFDFFFF70177B35CDDE4DD45B5E35D6DF45BD615170572
  841. 5D5F94579475A5DD596D775AD4D5B701751B5C55C65D6585EB516DF658D01BB7
  842. 0D77575FD5D5DD5595D7556DF559D2D5B70D575954D556D564B5591D61564BD6
  843. 15B70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF700000000000000000000000000
  844. 000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70FF3FFDFBBF7FBD8FDDDD1
  845. 7FF7FFDF7BF70FFDFFDF39F7FB6FFD9C877FF7FFDF7DF70FFBFFDFBAF7F379FD
  846. 55517FF7FFDF7EF70FF7FFDFBBF7FB6BFDDDD77FF5FFDF7DF70FF9FFDFBBF7FB
  847. D8FDDDD17FF1FFDF7BF70FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70000000000
  848. 0000000000000000000000000FFFFFDFFFF7FFFFFDFFFF7FFFFFDFFFF70F75EF
  849. DF9EE7FF3EFD47774F193EDFBBF70F75DFDFE4E7FFDFF5723E5FD5DFDFBBF70F
  850. F6EFDFEAE7FF5EF575554F195EDFBAF70FF6DFDFEEE7FFDEF5777F5FD5DEDF39
  851. F70FF6DFDF9EE7FF3EFD47774F153EDFBBF70FFFFFDFFFF7FFFFFDFFFF7FFFFF
  852. DFFFF700000000000000000000000000000000000FFFFFFFFFF7FFFFFDFFFF7F
  853. FFFFDFFFF70FFFACD98FF77FC89DF13F7F74DFDFFCF70FFFAAAEEFF7F67FEDF5
  854. DF7F77DFDF7FF70FFFAC8D8FF73479DDF1DF7F74DFDF7FF70FFFAAABEFF7F67B
  855. BDFDDF7F7FEFDF7FF70FFF8CAC8FF77FC8CDFD3F7F7CEFDFFCF70FFFFFFFFFF7
  856. FFFFFDFFFF7FFFFFDFFFF7000000000000000000000000000000000000000000
  857. 000000000000000000000000000095005055D454E45550D9D20E16321C432D6E
  858. 2050577627F626D6E2070576716C6575637E1632275E147A20E4A20510000000
  859. 000000000000E4A20510000000000000000000B2130D6E2050577627F62604B0
  860. 2AE8C1634E1DCC0247A20E4A20510000000000000000000E4A20510000000000
  861. 000000000B21300F2E14B2A2F17A1FD332D9D20D6E2070576716C657563704B0
  862. 292CF133920100000000000001050FA1D6BB16C7D192CF133920100000000000
  863. 0010D4EB16C7D1B2130F1732D9D208DBF18DBF18DBF1303A1B21305DF22FD332
  864. D9D20DBBF13ABB1339201000000000000010EEDA16C7D1B2130F1732D9D208DB
  865. F18DBF1303A1B21305DF22EB3A1EF53293632B21306C7D"
  866. END_ASC
  867.  
  868. BYTES: #D7C6h 7455.5
  869.  
  870. BEGIN_UU fsmenu.uue
  871. begin 666 fsmenu
  872. M2%!(4#0X+466*O!_&#@    $54U/1 2=+>!A(X?[ ;0@N,D13"-M+E!0=R;W
  873. M)M;F @=U=F%L=65S;2X0X.9A(VTN4%!W)O<F!K0@-N31S"!T*N"D A4     
  874. M      #@I (5            L!(#\.)!*RH?IS'L(H?[T>8" 6[)HG*V&C,I
  875. M$        !#@WAI=[*'O(ITM@+T?;2Y04'<F]R;6Y@('=79A;'5E<P.CL1(#
  876. MU2]RN!\S*1         04/ :;;O1NQ]MNS&3 @$        !3;X13"-M+C @
  877. M]W;7Y@(#8V]L'C:"Y ('2T594TE:16TN,"#W=F=\'<,N@JL";2XP,/;&EBPJ
  878. M<NFQ$@/Z+M+9 MZB8GP=3BI0 0           "LQ4/LBG2V@E1S8^]'F @-C
  879. M;VS>HI+0&NZMT;L?*?QQMAH._.' 'V>KX< ?V/OAP!_8^[$2 ]4OTN8" W)O
  880. M=\FBDM :7*/BWAK!--+F @)X,FTN(( 7T^8" 7D>-F)#'K2B,@PCV/MA2!QM
  881. M+C @]W;'H@(' ,!RMAIM+C P]L9VMAHL*C ! "!,86)E;#]GJT&G D@N$,"X
  882. M$@/*))(L*JWET0XCA_N!FQS8^X&K FTN(( GT^8" G@Q":VQ$@.^H\'/'KDV
  883. M<K@?N,F!O1_#+G*X'TXJ4 $           !RZ:'O(ITM@+T?V/N!O1\K,5#[
  884. M(ITMT.8" 7FX*M#F @%Y,J-RMAHK,0 :(VTN0,"6YE;6Y@(">#%M+D# EN96
  885. MMFD9WJ(R>!QM+B" )]/F @1L:6YEFY;A+2J#QX$Y'DPR@JL";2X@@!?3Y@("
  886. M>#)GJ^$M*F>KL1(#OJ/1NQ\)K>$M*@6OT>8" 7E.*E !  $         9ZOA
  887. M+2J#Q]&['^3DL1(#U2_B7R,VY$&G DXJ4 $           !.*E !        
  888. M    *S'@I (5 # (        T.8" 6Y.*E !  @         [JWA+2J#Q\&%
  889. M'&TN4%!W)O<FULP@;2YP4&<7QE97-@>T((?[T>8" W)O=\;7,0PC+"IP @!#
  890. M+6-O;G-T86YT(&]B:F5C=,FB0E@:+"J0 @!,+6QI8G)A<GD@8V]N<W1A;G3>
  891. MHD)8&BPJ$ $ 32UM96YU\Z)"6!HL*K ! $XM;F\@8VAA;F=E"*-"6!HL*A "
  892. M % M<')O9W)A;2!N86UE':-"6!HL*A ! %4M=6YI=#*C0E@:M*+R<1IMN]%X
  893. M(YTM<+@?,RD0        $R"7'J@WTMD"V/O!H@(C ##TYC9'%^9&!_(DIE8V
  894. M1D>G D@N$&"U$@/*)++W',FB,G@<R:*R$@/5+W*X'S,I$        "8@EQZH
  895. M-]+9 MC[P:("'P P].8V1Q?F1@?B%-961J<"2"X0P+@2 \HDPJ(""P"P"G+2
  896. MNQ]GJ\&B A< < (R].0T106R>[8:>\^1+"J#QY$L*BLQ4/TBA_LQDP(!    
  897. M   0 W+I@7HCG2V O1\L*K   *L@)RPJ\ ( 1W)A<&AI8R!V87)I86)L92!N
  898. M86UE="J Y (!C"LQH$PB9ZO!H@(+ ' "<G*V&BPJT ( 5F%L=65S('9A<FEA
  899. M8FQE(&YA;65T*H#D @&,*S&@3")GJ\&B A< < )2U53D5 6R>[8:>\^1+"J#
  900. MQY$L*BLQ4/TBA_LQDP(!       @ W+I@7HCG2V O1^'^]'F @-C;VS&UY$L
  901. M*BLQ4/TBA_LQDP(!      !  W+I@7HCG2V O1\L*M ! %!R;V=R86T@;F%M
  902. M970J@.0" 8PK,:!,(BPJD   JR"]^W&V&BPJD   (+MGJ['W',FB,G@<R:*R
  903. M$@/5+S*3 @$      # $<NF!>B.=+<"B A< 4.661@?B%-961J<"2"X0P+@2
  904. M \HD$DPC;2X04.=A(RPJT   JR Q7VTN$%!WMAHL*M   " J(+MGJ['W'"PJ
  905. MT   JR Q7VTN$%!WMAHL*I ! "!#3TY615)4(+MGJ['W'"PJT   JR Q7VTN
  906. M$%!WMAHL*M   " O(+MGJ['W'/.B,G@<_C62+"HK,5#](K2BLA(#U2_2#B.Y
  907. M-M+F @-C;VR]^W% '6TN,"#W=M>['P?4T>8"!W5V86QU97/-#.)?(VTN4%!W
  908. M)O<FUN8"!W5V86QU97/^-9)C(RLQ$,L !E5#3$5!4@:=+>!A(RPJT ( 16YT
  909. M97(@;G5M8F5R(&]F(')O=W-T*H#D @%6*S&@3")[SQ%,(VTN$.#F82/#+H*K
  910. M FTN$."6+"J^Z]'F @%N7*/2Q1X)Z-'F @%NH[M!*RJ=ZI& 'BLQH.\B Z-1
  911. M_2)?XD&G DXJ4 $           !.*E !            *S$ +Q[)HM+F @%N
  912. MH#'2Y@(#<F]W2"YPL%24-96D5=3F @-R;W?&UZ&5'-C[$4PC;2X0T-;F @)E
  913. M,6TN(# GT^8" F4R;2XPD.8VYF$CR:+2Y@(!;: QTN8" V-O;,,N@JL";2XP
  914. M,/;&EBPJ<NFQ$@/Z+M+9 DXJ4 $           !M+B!0%K,2 [4OTMD";2XP
  915. M,/;&YBTJ":W1Y@(#:6YC[JUQN!]M+B P)W.V&KW[T>8" F4R9ZNQ$@/5+Q),
  916. M(VTN(( 7T^8" G@R'C;2Y@(#<F]WR:*2T!I<H^+>&H?[(3,J9ZL!&B-M+D# 
  917. MEN96UN8" G@Q;2Y P);F5K9I&=ZB,G@<;2X@@"?3Y@($;&EN99N6X2TJ@\>!
  918. M.1Y,,N)?(TPRXE\C3#)B0QYT*N"D A4 @         #@I (5 ) "        
  919. ML!(#+"IP  ",R:+26A[DY&%#'G0JX*0"%0!P         ."D A4 $ ,     
  920. M  "P$@,>*Y !  4 <   ! )_0D3DY&%#'G0JX*0"%0!P         ."D A4 
  921. MD ,       "P$@,>*Y !  4 <   $"!_(1'DY&%#'G0JX*0"%0          
  922. M ."D A4           "P$@-.*E ! (,         ;2X0X.:D A4 @       
  923. M  #@WAI.*E !  $         ":WA+2J#Q\&%''0JL!(#R:+2Y@(!;J QTN8"
  924. M W)O=W0JL!(#R:*"Y ('2T594TE:16TN,"#W=F=\'<FB8GP=H#'2Y@(#8V]L
  925. M="I IP(K,; 2 V>KP20CR:(R>!QGJ\$D(_XUDF,C*S&P8  '2T594TE:10=T
  926. M*D"G C*CXJ0"%0!  0       ."D A4 8 $       #@I (5 * "        
  927. MX*0"%0!@ 0       + 2 W0J(#,J3BI0 0 4         $XJ4 $ %@      
  928. M  !.*E ! "H         3BI0 0 6         "LQ0*<",J/BI (5 $ !    
  929. M    X*0"%0!@ 0       ."D A4 H (       #@I (5 & !        L!(#
  930. M="H@,RI.*E ! !0         3BI0 0 6         $XJ4 $ *@        !.
  931. M*E ! !8         *S% IP(=H^*D A4 H (       #@I (5 , "        
  932. MX*0"%0  !        ."D A4 8 $       "P$@-T*M Q*DXJ4 $ %       
  933. M  !.*E ! !@         3BI0 0 Q         $XJ4 $ &P         K,4"G
  934. M AVCXJ0"%0!  0       ."D A4 @ $       #@I (5 ! #        X*0"
  935. M%0"P 0       + 2 W0JT#$J3BI0 0 4         $XJ4 $ &         !.
  936. M*E ! #$         3BI0 0 ;         "LQL!(#U - 4&7%)$- IP)T*D"G
  937. M MHJ,),"B D @H=!A0@L*G   $/>HB*W$"PJ<   3BPJ<   ;=ZB(K<07@N!
  938. MMA"&"[$2 RLQ0*<"VBHPDP*4"2 &-V8E 2PJD   5V(L*G   $$L*G   &U>
  939. M"X&V$(8+L1(#*S% IP+:*C"3 F8)  ")104!+"IP  !*+"IP  !S7@MAN! K
  940. M,; 2 W0JH*T",RE  @    !V6?"; FLL*G   &=\"V&X$"LQL!(#="J@K0(S
  941. M*6       '!CP*("!P#09K@0*S&P$@-T*J"M C,I$)<   !%4F; H@(' -#F
  942. M+2IR"V&X$"LQL!(#*S% IP)T*J"M C,I      !!%(/ H@(' *#$H@(' +#$
  943. MH@(+ -#VQN:U$&@+8;@0*S&P$@-T*J"M C,I, (  % $(F" -64L*K   &UO
  944. M;&@+8;@0*S&P$@-T*J"M C,I$)AV2101!R/ H@(' '#VFP)C+"IP  !M? LQ
  945. M+RIR"^&U$"PJ<   <]ZB(K<0: MAN! K,; 2 W0JH*T",RF0F   !G>14L"B
  946. M @< T&:X$"LQL!(#="K0V0(>-K)M&3DVLA(#*S% IP*=+>!A(U0V@N0" U5'
  947. M4GDV0F4C2"XP4&7%E&<C2"Y04-54Y%258R,K,; 2 RLQ0*<"="K0V0(>-J*M
  948. M LFBPJ("!P!0;+@0*S'@WAHY-K(2 YTMX&$CVBJ0+"HL*G   ,6&"[$2 ]N6
  949. MD6,C*S'0V0(>-J*M LFBPJ("!P!0;+@0*S%0\!HY-K(2 RLQ0*<"G2W@82/:
  950. M*I L*BPJD   876&"[$2 ^ZMD6,C*S'0V0(>-J*M LFBPJ(""0 05F>X$"LQ
  951. ML&T9.3:R$@.=+>!A(]HJD"PJ+"J0  !A=88+L1(#!:^18R,K,; 2 W0JT-D"
  952. M'C:BK0+)HO*; DTL*I   '!C? MAN! K,>#>&CDVLA(#G2W@82/:*I L*K\I
  953. MT,2B @D  #?&MQ"&"[$2 ]N6D6,C*S'0V0(>-J*M LFB\IL"32PJD   <&-\
  954. M"V&X$"LQ4/ :.3:R$@,K,4"G ITMX&$CVBJ0+"J_*;#&H@(' -#&MQ L*G  
  955. M '-H"V&X$"LQX-X:.3:R$@.=+>!A(]HJD"PJORFPQJ("!P#0QK<0+"IP  !S
  956. M: MAN! K,;!M&3DVLA(#G2W@82/:*I L*K\IL,:B @< T,:W$"PJ<   <V@+
  957. M8;@0*S%0\!HY-K(2 RLQ0*<"G2W@82/:*I L*BPJ<   8X8+L1(#[JV18R,K
  958. M,=#9 AXVHJT"R:+"H@(' #!FN! K,;!M&3DVLA(#G2W@82/:*I L*BPJ<   
  959. M8X8+L1(#!:^18R,K,; 2 W0JT-D"'C:BK0+)HL*B @< 4&>X$"LQX-X:.3:R
  960. M$@.=+>!A(]HJD"PJ+"IP  !UA@NQ$@/;EI%C(RLQT-D"'C:BK0+)HL*B @< 
  961. M4&>X$"LQ4/ :.3:R$@,K,; 2 RLQ0(L  U563 -T*D"G G0JH*T",RF   " 
  962. M19*7*<"B @< T,:B @< ,(>V$(8+L1(#*S% IP+:*C"3 HD)    (&<&+"IP
  963. M  !.+"IP  !MWJ(BMQ!>"_&; FLL*G   &=\"^$M*G(+@;80A@NQ$@,K,4"G
  964. M MHJ,),"9@D  (!A8@8L*G   $HL*G   '->"V&X$"LQL!(#="J@K0(S*1"8
  965. M  "0& (6P*("!P P9+@0*S&P$@-T*J"M C,I()D    P<%; H@(' '#%H@('
  966. M -#F+2IR"\&B @< L(0P*G(+X;40: MAN! K,; 2 W0JH*T",REPEP   &: 
  967. M$\"B @< H,2B @< L(2V$(8+L1(#*S&P$@-T*D"G MHJ,),"<PD  $DF9P&_
  968. M*;#&H@(' '#&MQ"&"[$2 RLQ0*<"VBHPDP)I"0  4PD!";\IL,:B @< <,:W
  969. M$(8+L1(#*S% IP+:*C"3 C      D)@!ORFPQJ("!P!PQK<0A@NQ$@,K,4"G
  970. M MHJ,),""     "9E08L*G   &V&"[$2 RLQ0*<"VBHPDP(F     &"" RPJ
  971. M<   5X8+L1(#*S% IP*=+>!A(U0V@N0"!%5'4C)Y-D)E(T@N0%!EQ2239R-(
  972. M+E!0U53D5)5C(RLQL!(#*S% IP)T*M#9 AXVHJT"R:+"H@(' #!GN! K,>#>
  973. M&CDVLA(#G2W@82/:*I L*BPJ<   <X8+L1(#VY:18R,K,=#9 AXVHJT"R:+"
  974. MH@(' #!GN! K,5#P&CDVLA(#*S% IP*=+>!A(]HJD"PJ+"IP  !MA@NQ$@/N
  975. MK9%C(RLQT-D"'C:BK0+)HL*B @< T&:X$"LQL&T9.3:R$@.=+>!A(]HJD"PJ
  976. M+"IP  !MA@NQ$@,%KY%C(RLQL!(#="K0V0(>-J*M LFB\IL":RPJ<   9WP+
  977. M8;@0*S'@WAHY-K(2 YTMX&$CVBJ0+"J_*;#&H@(' '#&MQ"&"[$2 ]N6D6,C
  978. M*S'0V0(>-J*M LFB\IL":RPJ<   9WP+8;@0*S%0\!HY-K(2 RLQ0*<"G2W@
  979. M82/:*I L*BPJ<   ;?.B(K<0A@NQ$@/NK9%C(RLQT-D"'C:BK0+)HL*B @< 
  980. MT#8O*G(+8;@0*S&P;1DY-K(2 YTMX&$CVBJ0+"HL*G   &WSHB*W$(8+L1(#
  981. M!:^18R,K,; 2 W0JT-D"'C:BK0+)HL*B @< H&2X$"LQX-X:.3:R$@.=+>!A
  982. M(]HJD"PJ+"IP  !*A@NQ$@/;EI%C(RLQT-D"'C:BK0+)HL*B @< H&2X$"LQ
  983. M4/ :.3:R$@,K,4"G ITMX&$CVBJ0+"HL*G   $N&"[$2 ^ZMD6,C*S'0V0(>
  984. M-J*M LFBPJ("!P"P9+@0*S&P;1DY-K(2 YTMX&$CVBJ0+"HL*G   $N&"[$2
  985. M P6OD6,C*S&P$@,K,4"G G0JT-D"'C:BK0+)HL*B @D D"=GN! K,>#>&CDV
  986. MLA(#G2W@82/:*I L*BPJD   >7*&"[$2 ]N6D6,C*S'0V0(>-J*M LFBPJ("
  987. M"0"0)V>X$"LQ4/ :.3:R$@,K,4"G ITMX&$CVBJ0+"J_*3#&H@(' -#&MQ"&
  988. M"[$2 ^ZMD6,C*S'0V0(>-J*M LFB\IL"8RPJ<   ;7P+8;@0*S&P;1DY-K(2
  989. M YTMX&$CVBJ0+"J_*3#&H@(' -#&MQ"&"[$2 P6OD6,C*S&P$@-T*M#9 AXV
  990. MHJT"R:+"H@(' '!FN! K,>#>&CDVLA(#G2W@82/:*I L*BPJ<   9X8+L1(#
  991. MVY:18R,K,=#9 AXVHJT"R:+"H@(' '!FN! K,5#P&CDVLA(#*S% IP*=+>!A
  992. M(]HJD"PJORDPQJ("!P#0QK<0\Z(BMQ"&"[$2 ^ZMD6,C*S'0V0(>-J*M LFB
  993. M\IL"8RPJ<   ;7P+,2\J<@MAN! K,;!M&3DVLA(#G2W@82/:*I L*K\I,,:B
  994. M @< T,:W$/.B(K<0A@NQ$@,%KY%C(RLQL!(#="K0V0(>-J*M LFBPJ(""P!0
  995. M)G=FN! K,>#>&CDVLA(#G2W@82/:*I L*BPJL   97)GA@NQ$@/;EI%C(RLQ
  996. MT-D"'C:BK0+)HL*B @L 4"9W9K@0*S%0\!HY-K(2 RLQ0*<"G2W@82/:*I L
  997. M*BPJ<   5X8+L1(#[JV18R,K,=#9 AXVHJT"R:+"H@(' '!EN! K,;!M&3DV
  998. MLA(#G2W@82/:*I L*BPJ<   5X8+L1(#!:^18R,K,; 2 RLQ0*<"="K0V0(>
  999. M-A)W&3DVLA(#*S% IP*=+>!A(T@N0- X=#258R,K,; 2 W0JT-D"'C:BK0+)
  1000. MHL*B @D  #=FN! K,>#>&CDVLA(#G2W@82/:*I L*BPJD   <&.&"[$2 ]N6
  1001. MD6,C*S'0V0(>-J*M LFBPJ(""0  -V:X$"LQ4/ :.3:R$@,K,4"G ITMX&$C
  1002. MVBJ0+"HL*I   &56A@NQ$@/NK9%C(RLQT-D"'C:BK0+)HL*B @D 4&9EN! K
  1003. M,;!M&3DVLA(#G2W@82/:*I L*BPJD   95:&"[$2 P6OD6,C*S&P$@-T*M#9
  1004. M AXVHJT"R:+"H@(' #!DN! K,>#>&CDVLA(#G2W@82/:*I L*BPJ<   0X8+
  1005. ML1(#VY:18R,K,=#9 AXVHJT"R:+"H@(' #!DN! K,5#P&CDVLA(#*S&P$@,K
  1006. M,5#Z  151U(R!!XK$#8 &0 P" #__]____?___W_?___W___!__LW__[=^7F
  1007. M_>Y_?_[?__$'?]??K_5W5=7]9']_[=\?^P=_U-^O]7=DY/TJ?G_&WZ_[!W_7
  1008. MWP_U=U75_6Y_?^W?K_L'_^S?[_MW9=7][G]__=_?^P?__]____?___W_?___
  1009. MW___!P                      ___?___W___]_W___]___P?_^=^_]1?/
  1010. MK/V[?R=:W185!__UWU_UUW>K_55_NU+=U+4'__G?'_47;ZO]47^[0MT0NP?_
  1011. M]=]?^]=?K?U5?[O*WM*U!__UWU_[%^6*_;5_)]K>%K4'___?___W___]_W__
  1012. M_]___P<                      /__W___]____?]____?__\'__O?O_7W
  1013. M+N:U[F;_\]^WJP?_]=]?]?>D^M7D>O_]WRNI!__QWQ_U]RKZY6IW__W?HZH'
  1014. M__7?7_7WKOO5KF___=^KJP?_]=]?\?>NY[6N<__SWZN+!___W___]____?]_
  1015. M___?__\'                                             '(#,%!U
  1016. M)#7@L0*!!9 " (, \/___?]____?___W___]_W_P/__]CW__]=]__/?___VW
  1017. M?_#?__WW?__UWW__]Q___==_\-___9=___'??_SWK__]YW_PW__]MW__]=]_
  1018. M__>O__W7?_ ___V/?__UWW_\]]___;=_\/___?]____?___W___]_W\     
  1019. M                 /#___W_?___W___]____?]_$'<[Q=U.W51;/M763[5M
  1020. M47%0)]7U275)5UK=E=9WI4U=>Q!7L<55;-566+X5UF^%#;%[T'=U]5U=W559
  1021. M?5767Y4M77O0=95%765=1EN5T19EM&U1>_#___W_?___W___]____?]_    
  1022. M                  #P___]_W___]____?___W_?_ ___V[?[^-W]T=]W__
  1023. M_;=_\-___9-_O_;?R7CW?__]UW_PO__]JW\_E]]5%?=___WG?_!___V[?[^V
  1024. MW]U]]U___==_\)___;M_OXW?W1WW'__]MW_P___]_W___]____?___W_?P  
  1025. M                    \/___?]____?___W___]_W_P5_[]Z7[_X]]T=_21
  1026. MX_V[?_!7_?U.?O_]7R?C]5W]_;M_\&_^_:Y^_^5?5U7TD>7]JW_P;_W][G[_
  1027. M[5]W]_5=[?V3?_!O_?WI?O_CWW1W]%'C_;M_\/___?]____?___W___]_W\ 
  1028. M                     /#_____?___W___]____?]_\/_*G?A_]XS9'_/W
  1029. M1_W]SW_P_ZKJ_G]O]]Y?_?=W_?WW?_#_RMCX?T.7W1_]]T?]_?=_\/^JNOY_
  1030. M;[?;W_WW]_[]]W_P_\C*^'_WC-S?\_?'_OW/?_#_____?___W___]____?]_
  1031. M                                              !9  55345.506=
  1032. M+>!A(\$TTN8"!75G<F]B;2YP4&<7QE97-N=A(W+E0:<"3BI0 0          
  1033. M $XJ4 $            K,=#F @5U9W)O8D +HHX<-N31S"!T*N"D A4     
  1034. M      #@I (5            L!(#\.)!*RH?I_$](YTMT.8"!W5V86QU97- 
  1035. M"Y+"'S,I$        !!0\!IMNV%\'2G\,9," 0        %-OF%\'2LQ\'$C
  1036. MG2V O1_8^X&]'P.CL1(#U2_R/2.=+="['Z.[,9," 0        'NK6%\'2LQ
  1037. <\'$CG2V O1_8^S$P&BLQ4/TBOJ/A7R,Y-K(2 Y,"
  1038.  
  1039. end
  1040. END_UU
  1041.  
  1042.  
  1043.